home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / lowdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  315 b   |  13 lines
  1. program LowDemo;
  2. type
  3.   Colors = (Red, Green, Blue);
  4. var
  5.   Col: array [12 .. 20] of Colors;
  6.   Foo: 12 .. 20;
  7.   Bar: Integer;
  8. begin
  9.   Foo := Low (Col);              { returns 12 }
  10.   Col [Foo] := Low (Col [Foo]);  { returns Red }
  11.   Bar := Low (Integer)           { returns lowest ``Integer'' value }
  12. end.
  13.